// TOWN SPECIAL ENCOUNTERS
//    Town 36: Under Keep of Tinraya

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

//	set_name(,);
//	add_range_to_group(,,groupn);

	sf(36,6,0);
	
	sf(37,21,1);
	sf(37,22,1);
	sf(37,23,1);
	
	set_aggression(3613,50);
	set_aggression(3614,50);
	set_aggression(3609,50);
	set_aggression(3616,50);
	set_aggression(3655,40);
	
	set_name(3673,"Experimental Beast");
	set_boss_level(3673,1);
	set_name(3611,"Experimental Beast");
	set_boss_level(3611,1);
	set_aggression(3673,50);
	set_aggression(3611,50);
	
	set_level(3644,28);
	set_level(3637,28);
	
	if (gf(36,1) > 0) {
		set_terrain(0,21,4,0);
		set_terrain(0,25,4,0);
		}
	set_crime_tolerance(max_crime);

	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if ((gf(36,9) > 0) && (gf(36,23) == 0)) {
		sf(36,23,1);
		ok_dlog(71,2);
		}
	if ((gf(36,9) > 2) && (gf(36,23) == 1)) {
		sf(36,23,2);
		erase_char(3600);
		erase_char(3601);
		erase_char(3602);
		erase_char(3603);
		ok_dlog(77,3);
		}

	if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_town()) && (tick_difference(last_abil,get_current_tick()) > 0))) {
		if (gf(36,6) > 0) {
			inc_flag(36,6,-1);
			if (gf(36,6) == 15)
				ok_dlog(90,1);
			if (gf(36,6) == 8)
				ok_dlog(91,1);
			if (gf(36,6) == 1) {
				ok_dlog(92,1);
				set_terrain(0,43,62,0);
				}
			}
		
		last_abil = get_current_tick();
		}
break;

beginstate 10;
	if ((gf(37,25) > 0) && (gf(36,28) == 0)) {
		sf(36,28,1);
		activate_hidden_group(5);
		ok_dlog(95,1);
		}
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

